home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
DEVIL001.422
< prev
next >
Wrap
Text File
|
1993-04-16
|
9KB
|
269 lines
DEVL001.422 The Devil: Default Menu Ansified
3The Devil #1 @5419 7[1The Evil One7]
Tue Apr 13 16:13:58 1993
┌─────────────────────────────────────────────────────────────────────────────┐
│Filename : DEVL001.422 Date: 4/13/93 │
│Mod Author : The Devil #1 WWIVnet @5432/IceNET @5419/ZebraNET@1/Vnet @1504004│
│Difficulty : ██▒░░░░░░ Fidonet 1:396/90 │
│Mod Version: 1 │
│BBS Version: 4.22 │
│Description: Default Menu Ansified <Really Neat> │
└─────────────────────────────────────────────────────────────────────────────┘
This mod prints out an ansi, then locates the user settings
within the boxes on the ansi. It is a mere BLOCK COPY. Since this is not
my first time writing a mod, I do have some experience. I had written some
4.21 mods back when I used the alias of MEGADEATH and my mods were called
MEGAD1.MOD MEGAD2.MOD etc... So if you have seen or used any of the MEGAD
mods, and have a questions, I can answer them. Now on to the modding.
Key
═══════════
+ Add
- Delete
% Modify
= Existing
──────────────────────────────────────────────────────────────────────────
Step 1. Backup the source. ARJ A SRCBAK *.C *.H *.MAK BBS.EXE CONFIG.DAT
──────────────────────────────────────────────────────────────────────────
──────────────────────────────────────────────────────────────────────────
Step 2. Now Load up DEFAULTS.C and block copy the following into the end.
──────────────────────────────────────────────────────────────────────────
/* Block Copy DEVL001.MOD Begin */
void defaults(void)
{
int i,i1,i2,done;
char s[81],s1[81],s2[81],ch;
done=0;
print_cur_stat();
do {
tleft(1);
if (hangup)
return;
nl();
helpl=4;
if (okansi()) {
goxy(1,23);
prt(3,get_string(477));
ch=onek("Q?123456789ABCD");
} else {
goxy(1,23);
prt(3,get_string(478));
ch=onek("Q?1234567ABCD");
}
switch(ch) {
case 'Q':
done=1;
outchr(12);
break;
case '?':
outchr(12);
print_cur_stat();
break;
case '1':
outchr(12);
input_screensize();
break;
case '2':
outchr(12);
input_ansistat();
break;
case '3':
if (thisuser.sysstatus & sysstatus_pause_on_page)
thisuser.sysstatus ^= sysstatus_pause_on_page;
outchr(12);
nl();
prt(5,get_string(479));
if (yn())
thisuser.sysstatus |= sysstatus_pause_on_page;
break;
case '8':
outchr(12);
modify_mailbox();
break;
case 'B':
outchr(12);
config_qscan();
break;
case 'C':
outchr(12);
input_pw1();
break;
case 'D':
outchr(12);
do_macros(); /* Added for Morg15.Mod */
pausescr(); /* Added for Morg15.Mod */
break;
case 'A':
outchr(12);
change_colors();
break;
case '7':
outchr(12);
select_editor();
break;
case '6':
if (thisuser.sysstatus & sysstatus_funky_colors)
thisuser.sysstatus ^= sysstatus_funky_colors;
outchr(12);
nl();
prt(5,get_string(480));
if (yn())
thisuser.sysstatus |= sysstatus_funky_colors;
break;
case '5':
optional_lines();
break;
case '9':
nl();
goxy(21,21);
mpl(30);
inputl(thisuser.note,30);
/* inli(thisuser.note,ro,30,1); */
break;
case '4':
enter_regnum();
break;
}
} while ((!done) && (!hangup));
}
void print_cur_stat(void)
{
char s[81],s1[81],s2[81];
userrec ur;
outchr(12);
printfile("DMENU");
goxy(23,5);
npr("2%d 7X 2%d\r\n",
thisuser.screenchars,
thisuser.screenlines);
goxy(23,7);
npr("2%s\r\n",
(thisuser.sysstatus & sysstatus_ansi)?
((thisuser.sysstatus & sysstatus_color)? get_string(385):get_string(386)):
get_string(387));
goxy(23,9);
npr("2%s\r\n",
(thisuser.sysstatus & sysstatus_pause_on_page)?get_string(389):get_string(390));
goxy(21,19);
if ((thisuser.forwardsys==0) && (thisuser.forwardusr==0))
pl(get_string(392));
else {
if (thisuser.forwardsys) {
goxy(21,19);
outstr(get_string(393));
npr("2%s #%u @%u.\r\n",
net_networks[thisuser.net_num].name,
thisuser.forwardusr,thisuser.forwardsys);
} else {
if (thisuser.forwardusr==65535) {
goxy(21,19);
pl(get_string(300));
} else {
read_user(thisuser.forwardusr,&ur);
if (ur.inact & inact_deleted) {
thisuser.forwardusr=0;
goxy(21,19);
pl(get_string(392));
} else {
goxy(21,19);
outstr(get_string(393));
npr("2%s\r\n",nam(&ur,thisuser.forwardusr));
}
}
}
}
/* pl(get_string(394));
pl(get_string(395));
pl(get_string(396));
if (okansi()) {
pl(get_string(397)); */
goxy(21,17);
npr("2%s\r\n",
((thisuser.defed) && (thisuser.defed<=numed))?
editors[thisuser.defed-1].description:get_string(5));
goxy(23,15);
npr("2%s\r\n",
(thisuser.sysstatus & sysstatus_funky_colors)?str_yes:str_no);
goxy(23,13);
npr("2%d\r\n",thisuser.optional_val);
goxy(21,21);
npr("2%s\r\n",thisuser.note);
goxy(23,11);
npr("2%ld\r\n",thisuser.wwiv_regnum);
}
/* Alternate BLOCK - If you are not using ANSI.C or ENHANCE.C */
/* Tolkein's VOID GOXY is included below. */
void goxy(int i, int j)
/*
* This function will position the cursor at x:i, y:j coordinates on the
* screen. If the user has no ANSI then nothing happens.
*
*/
{
char s[12];
if (okansi()) {
sprintf(s,"\x1b[%d;%dH",j,i);
outstr(s);
}
}
/* End Block Copy For DEVL001.MOD */
──────────────────────────────────────────────────────────────────────────
Step 3. Now go comment out or delete your OLD
void defaults(void) void print_cur_stats(void)
──────────────────────────────────────────────────────────────────────────
──────────────────────────────────────────────────────────────────────────
Step 4. Save DEFAULTS.C and RE-COMPILE. Logon and go see how it looks!
──────────────────────────────────────────────────────────────────────────
──────────────────────────────────────────────────────────────────────────
Step 5. Cut the below ansi and save as GFILES\DMENU.ANS
──────────────────────────────────────────────────────────────────────────
╒═════════════════════════════════════════════════════════════════════════════╕
│
Account Editor
-
User:C
│
╞══╤════════════════════════════════╤═════════════════════════════════════════╡
│
1.
│
Screen Sizes -C
│
A Change Color SetupC
│
╞══╪════════════════════════════════╪═════════════════════════════════════════╡
│
2.
│
Graphix Mode -C
│
B Configure Message ScannerC
│
╞══╪════════════════════════════════╪═════════════════════════════════════════╡
│
3.
│
Pause Prompts -C
│
C Change PasswordC
│
╞══╪════════════════════════════════╪═════════════════════════════════════════╡
│
4.
│
SysOp Reg # -C
│
D Update Macros <CNTRL- A,D,F>C
│
╞══╪════════════════════════════════╪═════════════════════════════════════════╡
│
5.
│
Optional Lines -C
│C│
╞══╪════════════════════════════════╪═════════════════════════════════════════╡
│
6.
│
Extended Color -C
│C│
╞══╧════════════════════════════════╧═════════════════════════════════════════╡
│
7.
│
Msg Editor :C
│
╞══╪══════════════════════════════════════════════════════════════════════════╡
│
8.
│
Mailbox Stats:C
│
╞══╪══════════════════════════════════════════════════════════════════════════╡
│
9.
│
User Note :C
│
╘══╧══════════════════════════════════════════════════════════════════════════╛D
──────────────────────────────────────────────────────────────────────────
Stop Cutting Here!!!!!!!! Now go save what you've just cut to the gfiles
──────────────────────────────────────────────────────────────────────────
Thank you for trying DEVL001.MOD
Disclaimer. This mod works as smooth as a baby's bottom on my board.